home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qbsnip.zip / STEEL.BAS < prev    next >
BASIC Source File  |  1997-06-20  |  998b  |  41 lines
  1. DECLARE SUB SteelPrint (x%, y%, text$)
  2.  
  3. ' Description : SteelPrint! - Custom text print subroutine for
  4. '               VGA Mode 13
  5. ' Written by  : Andrew L. Ayers
  6. ' Date        : 08/01/96
  7. '
  8. ' This little routine allows you to place a "steel-like" text
  9. ' string on the mode 13 screen.
  10. '
  11. ' You may use this routine in any manner you like, as long
  12. ' as you give credit in an appropriate manner.
  13.  
  14. SCREEN 13
  15.  
  16. SteelPrint 10, 10, "StEeL pRiNt!"
  17.  
  18. p$ = INPUT$(1): SCREEN 0, 0, 0, 0: WIDTH 80: COLOR 7, 0: CLS : END
  19.  
  20. SUB SteelPrint (x%, y%, text$)
  21.  
  22. starty% = (y% * 8) - 4
  23. endy% = (y% * 8) - 9
  24. startx% = ((x% - 1) * 8)
  25. endx% = ((x% - 1) * 8) + (LEN(text$) * 8)
  26. colr% = 32
  27.  
  28. COLOR 15: LOCATE y%, x%: PRINT text$
  29.  
  30. FOR y1% = starty% TO endy% STEP -1
  31.   y2% = (starty% - 1) + ((starty% - 1) - y1%)
  32.   FOR x% = startx% TO endx%
  33.     IF POINT(x%, y1%) THEN PSET (x%, y1%), colr%
  34.     IF POINT(x%, y2%) THEN PSET (x%, y2%), colr%
  35.    NEXT x%
  36.    colr% = colr% - 2
  37. NEXT y1%
  38.  
  39. END SUB
  40.  
  41.